home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / blink.sda / BLINK (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  42 lines
  1. 100 IFA>0THEN220
  2. 110 POKE53280,0:POKE53281,0
  3. 120 PRINT"[147] OH NO, ANOTHER MINI MOVIE BY KOVARSKI"
  4. 140 PRINT" SHORT INSTRUCTIONS-"
  5. 150 PRINT"  PRESS 'S' TO SLOW DOWN MOVIE"
  6. 160 PRINT"  PRESS 'F' TO SPEED UP MOVIE"
  7. 170 PRINT"  (YOU MAY HAVE TO PRESS THEM"
  8. 180 PRINT"   REPEATEDLY TO CHANGE SPEED)
  9. 190 [153]"  PRESS RUN/STOP & RESTORE TO QUIT
  10. 200 PRINT" PLEASE WAIT (8 FILES TO LOAD)..."
  11. 210 S$=" LOADING FILE "
  12. 220 REM
  13. 230 ONAGOTO250,260,270,280,290,295,300,370
  14. 240 A=A+1:PRINTS$;"1,";:LOAD"HH",8,1
  15. 250 A=A+1:PRINT"2,";:LOAD"GG",8,1
  16. 260 A=A+1:PRINT"3,";:LOAD"FF",8,1
  17. 270 A=A+1:PRINT"4,";:LOAD"EE",8,1
  18. 280 A=A+1:PRINT"5,";:LOAD"DD",8,1
  19. 290 A=A+1:PRINT"6,";:LOAD"CC",8,1
  20. 295 A=A+1:PRINT"7," :LOAD"BB",8,1
  21. 300 PRINT"            ALMOST DONE! "
  22. 310 PRINT"   THE NEXT FILE WILL OVERWRITE TEXT "
  23. 315 PRINT" [158] STAND AT LEAST TEN FEET BACK FROM "
  24. 316 PRINT" [158] THE SCREEN FOR THE BEST EFFECT   "
  25. 320 PRINT"     PRESS ANY KEY TO CONTINUE [145]":FOR I=1 TO 200: NEXT
  26. 330 PRINT"    [146] PRESS ANY KEY TO CONTINUE [145]":FOR I=1 TO 200: NEXT
  27. 340 GETA$:IFA$="" THEN320
  28. 350 PRINT"[147]"
  29. 360 A=A+1:LOAD"AA",8,1
  30. 370 REM
  31. 390 POKE53265,59:POKE53272,29
  32. 400 PRINT""
  33. 410 D=-1:K=24
  34. 420 P=199
  35. 430 POKE56576,P
  36. 440 FORA=1TOK
  37. 450 GETQ$:IFQ$="F"THENK=K-1:GOTO450
  38. 460 IFQ$="S"THENK=K+1
  39. 470 NEXT
  40. 480 P=P+D:IF(P<196)OR(P>199)THEND=-D:GOTO480
  41. 490 GOTO430
  42.